home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / bytebnch.arc / BENCH3.BAS < prev    next >
BASIC Source File  |  1984-07-10  |  256b  |  15 lines
  1. 500 NR=5000
  2. 520 DEFSNG A-Z
  3. 540 A=2.71828
  4. 560 B=3.14159
  5. 580 C=1
  6. 600 FOR I=1 TO NR
  7. 620 C=C*A
  8. 640 C=C*B
  9. 660 C=C/A
  10. 680 C=C/B
  11. 700 NEXT I
  12. 720 PRINT "DONE": BEEP
  13. 740 PRINT "ERROR = "; C-1
  14. 790 '
  15.